unit Controllers.AcessoController;

interface

uses
  Interfaces.IAcessoContract,
  Generics.Collections,
  Models.Acesso;

type
  TAcessoController = class(TInterfacedObject, IAcessoContract)
  public
    function Get(username, module: string; action: TActionType): TAcesso;
    function GetList(username: string; module: string=''): TList<TAcesso>;
  end;

implementation

{ TAcessoController }

uses
  DataAccess.AcessoDAO;

function TAcessoController.Get(username, module: string; action: TActionType): TAcesso;
begin
  result := nil;
end;

function TAcessoController.GetList(username, module: string): TList<TAcesso>;
var
  dao: TAcessoDAO;
begin
  dao := TAcessoDAO.Create;
  try
    result := dao.GetList(username, module);
  finally
    dao.Free;
  end;
end;

end.
